Handle closure definition type

Fixes #311

diff --git a/which-key.el b/which-key.el
index 67b185f2c24f8c657b612403f155bdd0e27d65d0..1213d14a833937c3d898b1071eb1a7012f699a88 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1790,11 +1790,15 @@ Requires `which-key-compute-remaps' to be non-nil"
                             ((keymapp def) "prefix")
                             ((symbolp def) (which-key--compute-binding def))
                             ((eq 'lambda (car-safe def)) "lambda")
+                            ((eq 'closure (car-safe def)) "closure")
                             ((stringp def) def)
                             ((vectorp def) (key-description def))
-                            ((consp def) (concat (when (keymapp (cdr-safe def))
-                                                   "group:")
-                                                 (car def)))
+                            ((and (consp def)
+                                  ;; looking for (STRING . DEFN)
+                                  (stringp (car def)))
+                             (concat (when (keymapp (cdr-safe def))
+                                       "group:")
+                                     (car def)))
                             (t "unknown")))))
                (when (or (null filter)
                          (and (functionp filter)